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— MakelmageUtilDefs.Mesa Edited by Sandman on August 6, 1977 10:30 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AltoFileDefs: FROM "altof il edef s" , 
ControlDefs: FROM "controldef s'\ 
ImageDefs: FROM " imagedefs" , 
LoadStateDefs: FROM "loadstatedef s" , 
ProcessDefs: FROM "processdefs" , 
SegmentDefs: FROM "segmentdef s" , 
StreamDefs: FROM "streamdef s" ; 

DEFINITIONS FROM ImageDefs; 

MakelmageUtilDefs: DEFINITIONS SHARES ImageDefs, ProcessDefs = 
BEGIN 

CFA: TYPE * Al toFi leDef s .CFA; 

DataSegmentHandle: TYPE = SegmentDefs .DataSegmentHandle; 

FP: TYPE = AltoFileDefs. FP; 

FileHandle: TYPE = SegmentDefs . Fi leHandle; 

FileRequest: TYPE = ImageDefs . Fi leRequest; 

FileSegmentHandle: TYPE- - SegmentDefs . FileSegmentHandle; 

PageCount: TYPE = AltoDef s. PageCount ; 

PageNumber: TYPE = AltoDef s . PageNumber; 

ProcessRegister: TYPE = ProcessDefs .ProcessRegi ster; 

ProcessHandle: TYPE = ProcessDefs . ProcessHandle; 

ProcessVector: TYPE = ProcessDefs . ProcessVector ; 

shortFileRequest: TYPE = short ImageDefs . FileRequest ; 

vDA: TYPE = AltoFi 1 eDefs . vDA; 

GlobalFrameHandle: TYPE = ControlDefs .Global FrameHandle; 

LoadStateGFT: TYPE = LoadStateDefs . LoadStateGFT; 

Configlndex: TYPE = LoadStateDefs .Conf iglndex; 

StreamHandle: TYPE = StreamDefs .StreamHandle; 

ProcDesc: TYPE = ControlDefs . ProcDesc; 

NullEpBase: CARDINAL = LAST[CARDINAL] ; 

-- file requests 

InitFileRequest: PROCEDURE; 

AddFileRequest: PROCEDURE [r: POINTER TO FileRequest]; 
DropFileRequest: PROCEDURE [f: FileHandle]; 
ProcessFileRequests: PROCEDURE; 

-- symbol tables 

Reques tSymbol F i les : PROCEDURE ; 

-- bed file names 

GetBcdFileNames: PROCEDURE [nbeds: Configlndex] 
RETURNS [names: DESCRIPTOR FOR ARRAY OF STRING]; 

-- space allocation 

SpaceHeader: TYPE = RECORD [ 
link: POINTER TO SpaceHeader, 
segment: DataSegmentHandle]; 

InitSpace: PROCEDURE; 

GetSpace: PROCEDURE [n: CARDINAL] RETURNS [p: POINTER]; 

GetString: PROCEDURE [oldstring: STRING] RETURNS [newstring: STRING]; 

FreeAllSpace: PROCEDURE; 

-- image file management 

gftp: TYPE = POINTER TO ARRAY [0..1) OF ControlDefs . GFTI tern; 

lockCodeSegment: PROCEDURE [p: ProcDesc]; 

UnlockCodeSegment: PROCEDURE [p: ProcDesc]; 

KDSegment: PROCEDURE RETURNS [ F i 1 eSegmen tllandle] ; 

DAofPage: PROCEDURE [file: FileHandle, page: PageNumber] RETURNS [next: vDA]; 

rillTnCAs: PROCEDURE [ 

Image: POINTER TO TmageHeader , map index: MapIndexType , ca: POINTER]; 
SwapOutUnlockedCode: PROCEDURE [f: Global FrameHandle] RETURNS [BOO! TAN]; 
SwapOutUnlocked: PROCEDURE [s: f i 1 eSegmen tHand I e] RETURNS [BOOIFAN]; 
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BashHint: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN]; 
BashFile: PROCEDURE [f: FileHandle] RETURNS [BOOLEAN]; 
PatchUpGFT: PROCEDURE; 

InitLoadStateGFT: PROCEDURE [initgft: LoadStateGFT , merge: BOOLEAN, nbcds: Conf iglndex] ; 
NumberGFIInConf ig: PROCEDURE [initgft: LoadStateGFT, con: Configlndex] 
RETURNS [ngfi: Con trolDef s.GFTIndex]; 

END. 



